home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / env.e < prev    next >
Text File  |  1995-12-22  |  353b  |  20 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC getenvstring(str,defstr)
  5.     DEF buffer[3000]:STRING
  6.     IF ((GetVar(str,buffer,2990,0))>0)
  7.         IF defstr
  8.             StrCopy(defstr,buffer,ALL)
  9.             RETURN TRUE
  10.         ENDIF
  11.     ENDIF    
  12. ENDPROC FALSE
  13.  
  14. PROC getenvvar(str,def=0)
  15.     DEF buffer
  16.     buffer:=New(2000)
  17.     IF ((GetVar(str,buffer,1900,0))>0) THEN StrToLong(buffer,{def})
  18.     Dispose(buffer)
  19. ENDPROC def
  20.